home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 22 / Cream of the Crop 22.iso / program / eflibpt4.zip / DEMO / STREAMS / FILESTRM.PAS < prev    next >
Pascal/Delphi Source File  |  1996-07-21  |  1KB  |  30 lines
  1. { Borland Pascal Extended Function Library - EFLIB (C) Johan Larsson, 1996
  2.   Demonstration; buffered file handling with a data stream
  3.  
  4.   EFLIB IS PROTECTED BY THE COPYRIGHT LAW AND MAY NOT BE COPIED, SOLD OR
  5.   MANIPULATED. FOR MORE INFORMATION, SEE PROGRAM MANUAL! THIS DEMONSTRAT-
  6.   ION PROGRAM MAY FREELY BE USED AND DISTRIBUTED.                          }
  7.  
  8.  
  9. uses EFLIBIO;
  10.  
  11. const BufferSize  = 1000; { Buffer size for the data stream }
  12.       TextSegment = 100;  { Characters in display buffer }
  13.  
  14. var MyStream : FileStreamObjectType; Text : array [1..TextSegment] of char;
  15.  
  16.  
  17. begin
  18.      { Initialize buffered file stream }
  19.      MyStream.Initialize ('..\hamlet.txt', BufferSize);
  20.                           { Filename }     { Buffer size in bytes }
  21.  
  22.      while not MyStream.IsEnd do begin
  23.            { Read some text from the stream }
  24.            MyStream.Read (Text, SizeOf(Text));
  25.            { Write it on the screen }
  26.            System.Write (Copy(Text, 1, MyStream.LastTransfer));
  27.                                        { Number of bytes transferred }
  28.       end;
  29.       MyStream.Intercept;
  30. end.